home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / VBDLL15D.ZIP / CLIENT.FR_ / CLIENT.FR
Text File  |  1995-03-03  |  6KB  |  212 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3648
  5.    ClientLeft      =   852
  6.    ClientTop       =   1548
  7.    ClientWidth     =   5616
  8.    Height          =   4176
  9.    Left            =   816
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3648
  12.    ScaleWidth      =   5616
  13.    Top             =   1056
  14.    Width           =   5688
  15.    Begin CommandButton Command1 
  16.       Caption         =   "Clear"
  17.       FontBold        =   -1  'True
  18.       FontItalic      =   0   'False
  19.       FontName        =   "MS Sans Serif"
  20.       FontSize        =   6.6
  21.       FontStrikethru  =   0   'False
  22.       FontUnderline   =   0   'False
  23.       Height          =   300
  24.       Left            =   528
  25.       TabIndex        =   1
  26.       Top             =   192
  27.       Width           =   852
  28.    End
  29.    Begin ListBox List1 
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "MS Sans Serif"
  33.       FontSize        =   6.6
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       Height          =   2520
  37.       Left            =   288
  38.       TabIndex        =   0
  39.       Top             =   648
  40.       Width           =   4860
  41.    End
  42.    Begin Menu mnuFile 
  43.       Caption         =   "&File"
  44.       Begin Menu mnuFileExit 
  45.          Caption         =   "E&xit"
  46.       End
  47.    End
  48.    Begin Menu mnuFunctions 
  49.       Caption         =   "Fu&nctions"
  50.       Begin Menu mnuVBFunctionCall 
  51.          Caption         =   "VBFunction&Call"
  52.          Begin Menu mnuTypeTest 
  53.             Caption         =   "&TypeTest"
  54.          End
  55.          Begin Menu mnuShowForm 
  56.             Caption         =   "&ShowForm"
  57.          End
  58.       End
  59.       Begin Menu mnuVBFunction 
  60.          Caption         =   "&VBFunction"
  61.          Begin Menu mnustrrev 
  62.             Caption         =   "&strrev"
  63.          End
  64.          Begin Menu mnuInStrRev 
  65.             Caption         =   "&InStrRev"
  66.          End
  67.          Begin Menu mnuTypeTestStk 
  68.             Caption         =   "&TypeTest"
  69.          End
  70.          Begin Menu mnuDecToHex 
  71.             Caption         =   "&DecToHex"
  72.          End
  73.          Begin Menu mnuHexToDec 
  74.             Caption         =   "&HexToDec"
  75.          End
  76.       End
  77.    End
  78. End
  79.  
  80. Sub Command1_Click ()
  81.     List1.Clear
  82. End Sub
  83.  
  84. Sub Form_Load ()
  85.     'flag if running under vb
  86.     Dim te As TASKENTRY
  87.     te.dwSize = Len(te)
  88.     bok% = TaskFindHandle(te, GetCurrentTask())
  89.     If bok% = False Then Exit Sub
  90.     If Left$(te.szModule, 3) = "VB" + Chr$(0) Then DesignEnv = True
  91.  
  92. End Sub
  93.  
  94. Sub Form_Unload (Cancel As Integer)
  95.     'unload server if under vb
  96.     If DesignEnv = True Then
  97.         bf% = True
  98.         ErrCode% = VBFunctionCall(ServerPath + "SERVER.MAK", "UnloadVbLib", 0, bf%)
  99.     End If
  100. End Sub
  101.  
  102. Sub mnuDecToHex_Click ()
  103.     b10& = 65536 - 32 + 3 'FFE3
  104.     ErrCode% = DecToHex(b10&, ServerPath + "SERVER.MAK", "DecToHex", hx)
  105.     
  106.     List1.AddItem "DecToHex:  rc from call  is " + hx
  107.     
  108. End Sub
  109.  
  110. Sub mnuFileExit_Click ()
  111.     Unload Me
  112.     End
  113. End Sub
  114.  
  115. Sub mnuHexToDec_Click ()
  116.     hx$ = "f001"
  117.     ErrCode% = HexToDec(hx$, ServerPath + "SERVER.MAK", "HexToDec", dc)
  118.     
  119.     List1.AddItem "HexToDec:  rc from call  is " + Str$(dc)
  120.  
  121. End Sub
  122.  
  123. Sub mnuInStrRev_Click ()
  124.  
  125.     ErrCode% = InStrRev("aaaaa", "aaaa", ServerPath + "SERVER.MAK", "InStrRev", revpos%)
  126.     
  127.     List1.AddItem "InStrRev:  rc from call " + Trim$(Str$(cnt%)) + " is " + Trim$(Str$(ErrCode%))
  128.     List1.AddItem "    Pos is " + Str$(revpos%)
  129.  
  130. End Sub
  131.  
  132. Sub mnuShowForm_Click ()
  133. 'Sample Calling Code for VB.
  134. ErrCode% = VBFunctionCall(ServerPath + "SERVER.MAK", "ShowForm", 0, 0)
  135.     
  136.     List1.AddItem "ShowForm:  rc from call " + Trim$(Str$(cnt%)) + " is " + Trim$(Str$(ErrCode%))
  137.  
  138. End Sub
  139.  
  140. Sub mnustrrev_Click ()
  141.  
  142. revs$ = "0123456789"
  143. ErrCode% = strrev(revs$, ServerPath + "SERVER.MAK", "strrev", 0)
  144.     
  145.     List1.AddItem "strrev:  rc from call " + Trim$(Str$(cnt%)) + " is " + Trim$(Str$(ErrCode%))
  146.     List1.AddItem "    " + revs$
  147.  
  148. End Sub
  149.  
  150. Sub mnuTypeTest_Click ()
  151. 'Sample Calling Code for VB.
  152. Dim TypeTestParm As TypeTestType
  153.         
  154.     TypeTestParm.fnd = 1
  155.     TypeTestParm.lng = 20
  156.     TypeTestParm.sng = 300.3
  157.     TypeTestParm.rl = 4000.04
  158.     TypeTestParm.st = "string1"
  159.     TypeTestParm.fnd2 = 9000
  160.     TypeTestParm.lng2 = 800
  161.     TypeTestParm.sng2 = 80.8
  162.     TypeTestParm.rl2 = 70.07
  163.     TypeTestParm.st2 = "2string"
  164.     TypeTestParm.stlen = "0123456789"
  165.  
  166. TypeTestParm.DateToSt = Date
  167.  
  168. ErrCode% = VBFunctionCall(ServerPath + "SERVER.MAK", "TypeTest", Rtn$, TypeTestParm)
  169.     
  170.     List1.AddItem "TypeTest$:   rc from call " + Trim$(Str$(cnt%)) + " is   " + Trim$(Str$(ErrCode%))
  171.     List1.AddItem "    " + Str$(TypeTestParm.fnd)
  172.     List1.AddItem "    " + Str$(TypeTestParm.lng)
  173.     List1.AddItem "    " + Str$(TypeTestParm.sng)
  174.     List1.AddItem "    " + Str$(TypeTestParm.rl)
  175.     List1.AddItem "    " + TypeTestParm.st
  176.     List1.AddItem "    " + Str$(TypeTestParm.fnd2)
  177.     List1.AddItem "    " + Str$(TypeTestParm.lng2)
  178.     List1.AddItem "    " + Str$(TypeTestParm.sng2)
  179.     List1.AddItem "    " + Str$(TypeTestParm.rl2)
  180.     List1.AddItem "    " + TypeTestParm.st2
  181.     List1.AddItem "    " + TypeTestParm.stlen
  182.     List1.AddItem "    " + Format$(TypeTestParm.StToDate, "General Date")
  183.     List1.AddItem "    " + TypeTestParm.DateToSt
  184.     List1.AddItem "  return " + Rtn$
  185.  
  186. End Sub
  187.  
  188. Sub mnuTypeTestStk_Click ()
  189. 'Sample Calling Code for VB.
  190.  
  191. stlen$ = "abcdefg"
  192. ErrCode% = TypeTestStk(fnd%, lng&, sng!, rl#, st$, fnd2%, lng2&, sng2!, rl2#, st2$, StToDate, DateToSt, ServerPath + "SERVER.MAK", "TypeTestStk", Rtn$)
  193.     
  194.     List1.AddItem "TypeTestStk:   rc from call " + Trim$(Str$(cnt%)) + " is   " + Trim$(Str$(ErrCode%))
  195.     List1.AddItem "    " + Str$(fnd%)
  196.     List1.AddItem "    " + Str$(lng&)
  197.     List1.AddItem "    " + Str$(sng!)
  198.     List1.AddItem "    " + Str$(rl#)
  199.     List1.AddItem "    " + st$
  200.     List1.AddItem "    " + Str$(fnd2%)
  201.     List1.AddItem "    " + Str$(lng2&)
  202.     List1.AddItem "    " + Str$(sng2!)
  203.     List1.AddItem "    " + Str$(rl2#)
  204.     List1.AddItem "    " + st2$
  205.     List1.AddItem "    " + Format$(StToDate, "General Date")
  206.     List1.AddItem "    " + DateToSt
  207.     List1.AddItem "    return " + Rtn$
  208.  
  209.  
  210. End Sub
  211.  
  212.